home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Pier Shareware 1
/
Pier Shareware 1.iso
/
007a
/
courspas.exe
/
CHAP12.EXE
/
POINTR1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-06
|
822b
|
40 lines
program DemoPointeur1; {POINTR1.PAS}
uses
crt; { unité de Turbo Pascal 5 }
type
pointeur = ^integer;
var
a,b,c: pointeur;
begin
clrscr;
{création des variables dynamiques a^,b^,c^,}
new(a);
new(b);
new(c);
{auxquelles nous affectons des valeurs}
a^:= 20;
b^:= 40;
c^:= 60;
writeln('a^ = ',a^,' b^ = ',b^,' c^ = ',c^);
writeln;
writeln('Nous affectons à a^ le contenu de b^');
writeln;
a^:= b^;
writeln('a^ = ',a^,' b^ = ',b^,' c^ = ',c^);
writeln;
writeln('Nous affectons à c^ le produit a^ * b^');
writeln;
c^:= a^ * b^;
writeln('a^ = ',a^,' b^ = ',b^,' c^ = ',c^);
gotoxy(1,25);
write('Veuillez appuyer sur <CR>...');
readln;
{suppression des variables dynamiques}
dispose(a);
dispose(b);
dispose(c);
end.